home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 2.iso / heat_tst / heplay.cfg < prev    next >
Text File  |  1991-10-19  |  5KB  |  219 lines
  1. /*********************************************************************
  2. /*
  3. /*    [Active] High-EUP Player 用
  4. /*    
  5. /*
  6.  
  7. TONE_PATH = L:\EUP\
  8.  
  9. HEPLAY_no_music {
  10.     wind_init()
  11.     echo("\n\n")
  12.     echo("\n\t演奏する曲が設定されてないよン。\n")
  13.     echo("\n\t曲は<BGM メニュー>で設定してね。\n")
  14.     wait(10)
  15.     wind_close()
  16. }
  17.  
  18. FMB_error {
  19.     wind_init()
  20.     echo("\n\n");
  21.     if ( FMB = FMB_S )
  22.     {    echo("\n\tFM音源用の音色データがないって\n")
  23.         echo("\n\tいってんだろ！\n");
  24.         echo("\n\t\(FMB).fmb をちゃんと用意しろ。\n")
  25.     } else
  26.     {    echo("\n\tFM音源用の音色データがロードできないよ。\n")
  27.         echo("\n\t\(FMB).fmb はちゃんとあるかい？\n")
  28.         FMB_S = FMB;
  29.     }
  30.     wait(10)
  31.     wind_close()
  32. }
  33.  
  34. PMB_error {
  35.     wind_init()
  36.     echo("\n\n");
  37.     if ( PMB = PMB_S )
  38.     {    echo("\n\tPCM音源用の音色データがないって\n")
  39.         echo("\n\tいってんだろ！\n")
  40.         echo("\n\t\(PMB).pmb をちゃんと用意しろ。\n")
  41.     } else
  42.     {    echo("\n\tPCM音源用の音色データがロードできないよ。\n")
  43.         echo("\n\t\(PMB).pmb はちゃんとあるかい？\n")
  44.         PMB_S = PMB;
  45.     }
  46.     wait(10)
  47.     wind_close()
  48. }
  49.  
  50.  
  51. /*********************************************************************
  52. /*    入力    ERR        エラー要因
  53. /*            EUP        ファイル名
  54. /*
  55. HEPLAY_error {
  56.     if ( ERR = 1 )
  57.     {    MSG = "演奏できないよ。\n\tファイルはちゃんとある？？"
  58.     } else if ( ERR = 2 )
  59.     {    MSG = "ファイルのオープンに失敗した！"
  60.     } else if ( ERR = 3 )
  61.     {    MSG = "ファイルが大きすぎて演奏できないよ。"
  62.     }
  63.     wind_close()
  64.     wind_init()
  65.     echo("\n\(EUP) :\n")
  66.     echo("\n\t\(MSG)\n")
  67.     wait(5)
  68.     wind_close()
  69. }
  70.  
  71. /*********************************************************************
  72. /*
  73. /*    HEPLAY用 各パーツの表示位置を決める
  74. /*
  75. /*    入力    EUP        ファイル名
  76. /*
  77. /*    パーツ一覧        番号    種別                ｻｲｽﾞ(x,y)
  78. /*                    1～32    トラックパーツ        ( 40, 176)
  79. /*                    80        タイトルライン        (640,  16)
  80. /*                    81        キーボード            (464,  64)
  81. /*                    82        ｲﾝﾌｫﾒｰｼｮﾝ･ﾊﾟﾈﾙ        (152,  64)
  82. /*                    83        ﾏｼﾞｶﾙ･ｻｳﾝﾄﾞ･ﾌﾟﾚｲﾔ    (640, 220)
  83. /*                    84        カラオケ・ライン    (640,  32)
  84. /*
  85. /*
  86. HEPLAY_display {
  87.     /*********************************************************/
  88.     /*            お好みのタイプを選んでちょ♪               */
  89.     /*********************************************************/
  90.     if ( _HEPLAY_TYPE ! 0 )
  91.     {    /* デフォルト以外    */
  92.         switch( _HEPLAY_TYPE,
  93.             1,"HEPLAY_display_1",
  94.             2,"HEPLAY_display_2",
  95.             3,"HEPLAY_display_3",
  96.             4,"HEPLAY_display_4"
  97.             )
  98.     }
  99. }
  100.  
  101. /*--------------------------------------------------------------------
  102. /*    32 track 構成
  103. /*
  104. HEPLAY_display_1 {    /* normal    */
  105.     he_parts(81,  8,28)        /* キーボード    */
  106.     he_parts(82,480,28)        /* パネル    */
  107.     trk = 0;
  108.     while ( trk < 32 )
  109.     {    expr("x","(\(trk)&15)*40")
  110.         expr("y","96+176*(\(trk)>>4)")
  111.         i = trk;
  112.         add("i",1)
  113.         he_parts(i,x,y)
  114.         add("trk",1)
  115.     }
  116.     he_parts(80,  0,456)    /* タイトルライン    */
  117.     he_parts(83,-1,-1)        /* マジカル･サウンド･プレイヤ    */
  118.     he_parts(84,-1,-1)        /* カラオケ    */
  119. }
  120.  
  121. HEPLAY_display_2 {
  122.     trk = 0;    /* ﾄﾗｯｸ 1～16 表示    */
  123.     while ( trk < 16 )
  124.     {    expr("x","(\(trk)&15)*40")
  125.         y = 24;
  126.         i = trk;
  127.         add("i",1)
  128.         he_parts(i,x,y)
  129.         add("trk",1)
  130.     }
  131.     trk = 16;    /* ﾄﾗｯｸ 17～32 off    */
  132.     while ( trk < 32 )
  133.     {    i = trk;
  134.         add("i",1)
  135.         he_parts(i,-1,-1)
  136.         add("trk",1)
  137.     }
  138.     he_parts(83,0,200)        /* マジカル･サウンド･プレイヤ･タイプ    */
  139.     he_parts(80,0,344)        /* タイトルライン                        */
  140.     he_parts(81,8,364)        /* キーボード                            */
  141.     he_parts(82,480,364)    /* パネル                                */
  142.     he_parts(84,0,432)        /* カラオケ                                */
  143. }
  144.  
  145.  
  146. /*-------------------------------------------------------------------=
  147. /*    ver.1.05ライク HEPLAY
  148. /*
  149. HEPLAY_display_3 {
  150.  
  151.     he_parts(80,0,24)        /* タイトルライン                        */
  152.     he_parts(83,0,40)        /* マジカル･サウンド･プレイヤ･タイプ    */
  153.     trk = 0;
  154.     while ( trk < 16 )
  155.     {    expr("x","(\(trk)&15)*40")
  156.         y = 184;
  157.         i = trk;
  158.         add("i",1)
  159.         he_parts(i,x,y)
  160.         add("trk",1)
  161.     }
  162.     trk = 16;    /* 16～32 トラック OFF    */
  163.     while ( trk < 32 )
  164.     {    i = trk;
  165.         add("i",1)
  166.         he_parts(i,-1,-1)
  167.         add("trk",1)
  168.     }
  169.  
  170.     he_parts(81,8,364)        /* キーボード                            */
  171.     he_parts(82,480,364)    /* パネル                                */
  172.     he_parts(84,0,432)        /* カラオケ                                */
  173. }
  174.  
  175. /*--------------------------------------------------------------------
  176. /*    カラオケ用HEPLAY
  177. /*
  178. HEPLAY_display_4 {
  179.  
  180.     he_parts(83,-1,-1)        /* マジカル･サウンド･プレイヤ･タイプ    */
  181.  
  182.     trk = 0;
  183.     while ( trk < 32 )
  184.     {    i = trk;
  185.         add("i",1)
  186.         he_parts(i,-1,-1)
  187.         add("trk",1)
  188.     }
  189.  
  190.     he_parts(80,0,344)        /* タイトルライン                        */
  191.     he_parts(81,8,364)        /* キーボード                            */
  192.     he_parts(82,480,364)    /* パネル                                */
  193.     he_parts(84,0,432)        /* カラオケ                                */
  194. }
  195.  
  196.  
  197. /*--------------------------------------------------------------------
  198. /*    入力    EUP
  199. /*            TITLE
  200. /*            FMB
  201. /*            FMB
  202. /*
  203. HEPLAY_start {
  204.     set_blackout(-1,"")    /* ブラックアウトを解除    */
  205. #    strupr("STR",EUP)
  206. #    if ( STR = "FARA_MID.EUP" )
  207. #    {    tone_load(32,1,"m:\\eup\\v50.drm")    /* V50用 ﾘｽﾞﾑ音色 名定義ﾌｧｲﾙ･ﾛｰﾄﾞ    */
  208. #    }
  209. #    tone_load(17,0,"m:\\eup\\d110.ton")    /* D-110用 音色名定義    */
  210. }
  211.  
  212. HEPLAY_stop {
  213.     if ( _BO_TIME > 0 )
  214.     {    /* ブラックアウト復活    */
  215.         set_blackout(_BO_TIME,"")
  216.     }
  217. }
  218.  
  219.